home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Languages
/
Mops 2.7
/
Mops Manual
/
Part I.srd
/
Part I.srd.rsrc
/
PICT_82.png
< prev
next >
Portable Network Graphic
|
1996-01-02
|
88KB
|
816x1056
|
8-bit (242 colors)
Labels:
book
|
crt screen
|
reckoner
|
sky
|
skyscraper
|
windowpane
OCR:
I-78 Mops Tutorial SIZE Sets size in pixels of drawing pen 50 put: PnSi ze 51 52 : m INIT: mode put : PnMode put: PnSi ize put: PnLoc 55 : m PUTRANGE initlen dLen dDeg Sets par ameters 56 put: deltaDeg put: deltaLen put : initLen ;m 57 58 Im PUTMAX : maxReps put: maxReps 5 9 60 : m CLASSINIT: get: self 200 put: maxReps 61 62 :m SPIRAL: dist degrees delta reps 63 Draws spi iral of line segments Logo POLYSPI 64 home se. 65 get ini tLen dist get: deltaLen delta 66 get del taDeg degrees reps 67 BEGIN reps reps get maxReps 68 WHILE move self degrees turn: self 69 delta dist 70 REPEAT 71 72 m DRAGON : Dragon curves from Martin Gardner dup NIF get: deltaLen move: self drop 75 ELSE dup 0> 76 dup dragon: self 77 get: deltadeg turn: self 78 swap self 79 ELSE 80 over dragon: self 81 360 get: deltadeg ...